home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / board / uzemicz1.lha / Intro2.AMOS / Intro2.amosSourceCode < prev    next >
AMOS Source Code  |  1997-08-08  |  9KB  |  381 lines
  1. '--------------------
  2. '�vod k '�zem�'      
  3. 'Blue Legend ï¿½1997   
  4. 'Marek Zvolsk� ï¿½1997 
  5. 'Created:24.02.96    
  6. 'Last UpDate:24.07.97
  7. 'Version:1.0670/2    
  8. '$VER:Intro 1.0/2    
  9. '--------------------
  10. If Exist("hdd") Then UZEMI_A$=Dir$ Else UZEMI_A$="Uzemi_A:"
  11. On Error Proc MALO_PAMETI
  12. Open In 1,UZEMI_A$+"Intro.mus"
  13. Reserve As Chip Work 11,Lof(1)
  14. Close 1
  15. If Length(11)>0
  16.    Bload UZEMI_A$+"Intro.mus",11
  17. End If 
  18. PLAI=0
  19. Global PLAI
  20. '--------------------
  21. Curs Off 
  22. Repeat 
  23. Until Drive("Fonts:")
  24. Get Disc Fonts 
  25. ACTFNT=1
  26. F$=Font$(1)
  27. FIND=False
  28. While F$<>""
  29.    If Upper$(Left$(F$,20)-" ")="MK_LIGHTP.FONT"
  30.       If(Mid$(F$,30,3)-" ")="10"
  31.          FIND=True
  32.          Exit 
  33.       End If 
  34.    End If 
  35.    Inc ACTFNT
  36.    F$=Font$(ACTFNT)
  37. Wend 
  38. Set Font ACTFNT
  39. Fade 3 : Wait 50
  40. If FIND=False
  41.    Edit 
  42. End If 
  43. R=$888
  44. Unpack 7 To 0
  45. Fade 1,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R,R
  46. Wait 16
  47. Fade 2,0,$111,$36,$160,$440,$666,$48,$5B,$6D,$490,$6B0,$7D0,$C60,$BB0,$8E0,$999
  48. Wait 5*50
  49. Fade 6
  50. Wait 7*16
  51. Screen Open 0,640,512,2,Hires+Laced
  52. Curs Off 
  53. Colour 1,$0
  54. Wait 50
  55. MUS_PLAY
  56. MOUSE=False
  57. For X=1 To 4
  58.    Read DEL
  59.    SPS=180
  60.    For Y=1 To DEL
  61.       Read ICON,SPACE
  62.       Paste Icon SPS,130,ICON
  63.       Add SPS,SPACE
  64.    Next Y
  65.    Read POC
  66.    For P=1 To POC
  67.       Read DEL,SPS
  68.       For Y=1 To DEL
  69.          Read ICON,SPACE
  70.          Paste Icon SPS,170+40*(P-1),ICON
  71.          Add SPS,SPACE
  72.       Next Y
  73.    Next P
  74.    Fade 3,0,$44A
  75.    For MO=1 To 170
  76.       If Mouse Key<>0 : MOUSE=True : MO=169 : End If 
  77.       Wait Vbl 
  78.    Next MO
  79.    Fade 3
  80.    Wait 50
  81.    Cls 0
  82.    If MOUSE Then X=4
  83. Next X
  84. If MOUSE Then Goto CONT
  85. Wait 135
  86. Auto View Off 
  87. Screen Open 1,320,256,2,Lowres
  88. Colour 1,$0 : Curs Off : Screen To Front 0
  89. Set Font ACTFNT
  90. Screen Open 0,320,256,2,Lowres
  91. Curs Off : Cls 0
  92. Colour 1,$44A
  93. Def Scroll 1,0,50 To 319,206,0,-2
  94. Auto View On 
  95. Double Buffer 
  96. Clip 0,50 To 319,206
  97. Autoback 0
  98. Read X,T$
  99. TC=False
  100. Repeat 
  101.    Screen 1
  102.    Cls 0
  103.    If X=1
  104.       Read T2$
  105.    End If 
  106.    If X=2
  107.       Set Text 1
  108.       X=0
  109.    End If 
  110.    If X=0
  111.       WW=320-Text Length(T$)
  112.       Text WW/2-10,9,T$
  113.       Set Text 0
  114.    Else If X=1
  115.          WW=142-Text Length(T$)
  116.          Text WW,9,T$
  117.          Text 156,9,T2$
  118.       End If 
  119.    End If 
  120.    Screen 0
  121.    For I=0 To 10 Step 1
  122.       Scroll 1
  123.       Screen 1
  124.       Get Block 1,0,I,319,2
  125.       Screen 0
  126.       Put Block 1,0,204
  127.       Wait Vbl 
  128.       If Mouse Key=1
  129.          Fade 5
  130.          T=Timer+30
  131.          TC=True
  132.       End If 
  133.       If TC
  134.          If Timer>T
  135.             Exit 
  136.          End If 
  137.       End If 
  138.       Wait 2
  139.       Screen Swap 
  140.       Wait Vbl 
  141.    Next I
  142.    Read X,T$
  143. Until T$="*"
  144. If TC=False
  145.    Screen 1 : Cls 0 : Paste Bob 90,0,1 : Screen 0
  146.    For I=0 To 254 Step 1
  147.       Scroll 1
  148.       Screen 1
  149.       Get Block 1,0,I,319,2
  150.       Screen 0
  151.       Put Block 1,0,204
  152.       Wait Vbl 
  153.       If Mouse Key=1
  154.          Fade 5
  155.          T=Timer+30
  156.          TC=True
  157.       End If 
  158.       If TC
  159.          If Timer>T
  160.             Exit 
  161.          End If 
  162.       End If 
  163.       Wait 2
  164.       Screen Swap 
  165.       Wait Vbl 
  166.    Next I
  167. End If 
  168. 'Fade 5
  169. CONT:
  170. Unpack 6 To 1
  171. Screen Open 0,320,256,64,Lowres
  172. Curs Off : Flash Off : Cls 0
  173. Get Palette 1
  174. Screen 1
  175. For X=0 To 31
  176.    Colour X,0
  177. Next X
  178. Unpack 5
  179. For X=0 To 254 Step 2
  180.    Screen Copy 1,0,X,319,X+1 To 0,0,X
  181.    Screen Copy 1,0,255-X,319,255-X+1 To 0,0,255-X
  182.    Wait Vbl 
  183. Next X
  184. Screen Close 1
  185. MUS_STOP
  186. Run UZEMI_A$+"Uzemi8.amos"
  187. 'Data :    
  188. '-1- 
  189. Data 8
  190. Data 1,20,10,14,11,17,12,19,10,14,13,20,14,33,33,0
  191. Data 1
  192. Data 13,240
  193. Data 2,32,13,20,10,14,15,16,16,20,34,8
  194. Data 3,21,17,20,11,19,18,12,19,18,16,20,20,19
  195. '-2- 
  196. Data 5
  197. Data 4,10,21,19,15,17,13,21,33,0
  198. Data 1
  199. Data 14,240
  200. Data 3,21,21,19,15,16,22,22,23,15,16,20,34,8
  201. Data 5,26,24,19,25,21,26,10,27,16,16,20,13,0
  202. '-3- 
  203. Data 6
  204. Data 6,26,28,22,21,19,29,20,13,21,33,0
  205. Data 1
  206. Data 10,240
  207. Data 2,32,13,20,10,14,15,16,16,20,34,8
  208. Data 6,26,10,14,11,17,22,0
  209. '-4- 
  210. Data 8
  211. Data 7,26,10,14,13,20,30,14,26,10,16,20,13,21,33,0
  212. Data 2
  213. Data 12,240
  214. Data 8,24,11,16,14,31,24,20,31,16,34,8
  215. Data 9,25,17,20,11,16,32,14,24,19,16,0
  216. Data 13,240
  217. Data 2,32,13,20,10,14,15,16,16,20,34,8
  218. Data 3,21,17,20,11,19,18,12,19,18,16,20,20,19
  219. 'Data for scrolling
  220. 'Data mode,text1[,text2] 
  221. 'mode: 0-centre, 1-podle osy 
  222. Data 2,"�zem�"
  223. Data 0,""
  224. Data 0,"logick� shareware h���ka pro dva hr��e"
  225. Data 0,""
  226. Data 0,""
  227. Data 1,"Nejprve n�co o v�voji:",""
  228. Data 0,""
  229. Data 1,"","V�voj `�zem�' za�al p�ibli�n�"
  230. Data 1,"","v polovin� roku 1995. Pro vlastn�"
  231. Data 1,"","program byl zvolen programovac�"
  232. Data 1,"","jazyk Amos 1.4 the Creator. "
  233. Data 1,"","Zhruba na konci t�ho� roku byla"
  234. Data 1,"","po n�kolikan�sobn�m p�epracov�n�"
  235. Data 1,"","prakticky dokon�ena hlavn� ï¿½ï¿½st"
  236. Data 1,"","programu, neboli vlastn� hra."
  237. Data 1,"","Pozd�ji se k p�vodn�mu z�kladu"
  238. Data 1,"","za�ali p�id�vat dal�� vylep�en�"
  239. Data 1,"","a� k dne�n�mu stavu."
  240. Data 1,"","Nam�tkov� bych se mohl zm�nit"
  241. Data 1,"","nap��klad o mo�nosti m�t p�i h�e"
  242. Data 1,"","zapnut� hodiny, vlastn�m file-"
  243. Data 1,"","requestru, extern�m p�ehr�va�i"
  244. Data 1,"","ProTracker modul� a dal��..."
  245. Data 0,""
  246. Data 1,"Popis ovl�d�n�:",""
  247. Data 0,""
  248. Data 1,"","Ovl�d�n� je navrhnuto tak, aby"
  249. Data 1,"","bylo co nejv�ce intuitivn�."
  250. Data 1,"","Jin�mi slovy, kdo nezvl�dne"
  251. Data 1,"","toto ovl�d�n�, a� rad�ji `�zem�'"
  252. Data 1,"","nezkou�� hr�t. :-)"
  253. Data 0,""
  254. Data 1,"tak�e pouze obecn�:",""
  255. Data 0,""
  256. Data 1,"Prav� tla��tko my�i  ","<PTM>"
  257. Data 1,"na hrac� plo�e","zmraz� pohyb kurzoru"
  258. Data 1,"","pokud p�i stisknut�m PTM stisknete"
  259. Data 1,"","i lev�, potvrd�te um�st�n� kurzoru"
  260. Data 1,"","a ve h�e pokra�uje druh� hr��."
  261. Data 1,"na ostatn�ch obrazovk�ch",""
  262. Data 1,"","to je r�zn�..."
  263. Data 1,"","V nastaven�ch (to je ta obrazovka,"
  264. Data 1,"","kter� se objev� hned po nata�en�"
  265. Data 1,"","hry) znamen� `potvrzen�' hodnot"
  266. Data 0,""
  267. Data 1,"","Na v�t�in� ostatn�ch obrazovek"
  268. Data 1,"","PTM tuto obrazovku uzav�e a lze"
  269. Data 1,"","pak pokra�ovat ve h�e"
  270. Data 0,""
  271. Data 1,"","Ve filerequestru PTM znamen� to"
  272. Data 1,"","to sam�, co v syst�mov�m"
  273. Data 1,"","requesteru `Cancel'/`Zru�it'"
  274. Data 0,""
  275. Data 1,"Lev� tla��tko my�i",""
  276. Data 1,"","M�n� kurzor ze svisl� ï¿½ï¿½rky"
  277. Data 1,"","na vodorovnou a naopak"
  278. Data 0,""
  279. Data 1,"Z�kladn� ovl�dac� kl�vesy:",""
  280. Data 0,""
  281. Data 1,"L nebo F1","Nahr�n� d��ve ulo�en� pozice"
  282. Data 1,"S nebo F2","Ulo�en� pozice"
  283. Data 1,"M nebo F6","Zapnut� hudby"
  284. Data 1,"F7","Vypnut� hudby"
  285. Data 1,"F4","Nastaven�"
  286. Data 1,"F8","Zapnut�/vypnut� hodin"
  287. Data 0,""
  288. Data 1,"Help","Zobraz� v�echny"
  289. Data 1,"","ovl�dac� kl�vesy"
  290. Data 0,""
  291. Data 0,""
  292. Data 1,"�zem� - shareware???",""
  293. Data 1,"","Ano, `�zem�' je skute�n�"
  294. Data 1,"","shareware"
  295. Data 0,""
  296. Data 1,"","Pokud alespo� ob�as hrajete"
  297. Data 1,"","�zem�, m�li byste se"
  298. Data 1,"","registrovat. Ty nejd�le�it�j��"
  299. Data 1,"","informace naleznete na"
  300. Data 1,"","prvn� disket� `�zem�'"
  301. Data 1,"","v souboru "+Chr$(34)+"Registrace"+Chr$(34)
  302. Data 0,""
  303. Data 0,""
  304. Data 0,"pt�te-li se pro� je `�zem�' na dv� diskety..."
  305. Data 0,""
  306. Data 0,"ehm..."
  307. Data 1,"","Mo�n� byste se mohli pod�vat,"
  308. Data 1,"","do jak� d�lky se rozrostla"
  309. Data 1,"","hudebn� str�nka t�to hry"
  310. Data 1,"","(tzn. cca. 500KB)"
  311. Data 1,"<pozn. program�tor:>","j� za to nem��u :-)"
  312. Data 1,"<pozn. hudebn�k:>","j� nic, j� muzikant :->"
  313. Data 0,""
  314. Data 1,"","p�i takov�to d�lce skladeb"
  315. Data 1,"","to prost� na jednu disketu"
  316. Data 1,"","(jak m�lo b�t p�vodn�)"
  317. Data 1,"","ne�lo d�t, fakt ne."
  318. Data 0,""
  319. Data 0,""
  320. Data 2,"Blue Legend"
  321. Data 0,""
  322. Data 0,"o co v�bec jde?"
  323. Data 0,""
  324. Data 1,"Tom�� Koloc","majitel & v�echno"
  325. Data 0,""
  326. Data 0,"a jeho dobrovoln� v�pomoc"
  327. Data 0,""
  328. Data 1,"V�clav Svoboda","o.v. & marketing"
  329. Data 1,"Marek Zvolsk�","v.v. & program�tor"
  330. Data 1,"Michaela Krej��kov�",Chr$(34)+"n�st�nk��ka"+Chr$(34)+" ;-)"
  331. Data 1,"Marek Hron","Hudba"
  332. Data 1,"Zden�k K�pi�ka","program�tor"
  333. Data 0,""
  334. Data 0,""
  335. Data 0,"hudba se bl��� ke konci"
  336. Data 0,"tak ukon��me tento text"
  337. Data 0,"mus� zb�t je�t� m�sto pro"
  338. Data 0,"na�e logo. . ."
  339. Data 0,""
  340. Data 1,"p�eji V�m",""
  341. Data 1,"","hodn� z�bavy"
  342. Data 0,""
  343. Data 1,"","za Blue Legend  M.Z."
  344. Data 0,""
  345. Data 0,""
  346. Data 0,""
  347. Data 0,""
  348. Data 0,"*"
  349. 'Procedure TEST
  350. '   A=Timer
  351. '   Unpack 6 To 1
  352. '   Unpack 5 
  353. '   Print Timer-A
  354. 'End Proc
  355. Procedure MUS_PLAY
  356.       If Length(11)>0
  357.          Reserve As Work 12,4
  358.          Loke Start(12),0
  359.          Loke Start(10)+4980,Start(12)
  360.          Loke Start(10)+4962,Start(11)
  361.          Bsave "Ram:Play",Start(10) To Start(10)+Length(10)
  362.          C$="Run >NIL: Ram:Play"
  363.          CLI[C$]
  364.          PLAI=1
  365.       End If 
  366. End Proc
  367. Procedure MUS_STOP
  368. If PLAI=1
  369.       Loke Start(12),-1
  370. End If 
  371. End Proc
  372. Procedure CLI[_COMMAND$]
  373.    _COMMAND$=_COMMAND$+Chr$(0)
  374.    Dreg(1)=Varptr(_COMMAND$)
  375.    Dreg(2)=0
  376.    Dreg(3)=0
  377.    EX=Doscall(-222)
  378. End Proc[EX]
  379. Procedure MALO_PAMETI
  380.    Resume Next 
  381. End Proc